﻿'Hacemos una referencia al proyecto de acceso a datos
Imports DataAccessLayer
'Hacemos una referencia al proyecto BusinessEntitites
Imports BE = BusinessEntities

Public Class ReservaBL

    'Instanciamos la clase ReservaDAO
    Dim reserva As New ReservaDAO

    Public Function InsertarReserva(ByVal objeto As BE.ReservaBE) As Boolean
        Return reserva.InsertarReserva(objeto)
    End Function

    Public Function InsertarDetalleReserva(ByVal objeto As BE.DetalleReservaBE) As Boolean
        Return reserva.InsertarDetalleReserva(objeto)
    End Function

    Public Function ListarReservas() As DataSet
        Return reserva.ListarReservas
    End Function

    Public Function ListarAñosReservas() As DataSet
        Return reserva.ListarAñosReservas
    End Function

    Public Function BuscarReservas_x_Cliente(ByVal objeto As BE.ReservaBE) As DataSet
        Return reserva.BuscarReservas_x_Cliente(objeto)
    End Function

    Public Function BuscarReservaxFechas(ByVal objeto As BE.ReservaBE) As DataSet
        Return reserva.BuscarReservaxFechas(objeto)
    End Function

    Public Function VentasxMes(ByVal objeto As BE.ReservaBE) As DataSet
        Return reserva.VentasxMes(objeto)
    End Function


    Public Function ChapaError() As String
        Return reserva.ChapaError
    End Function



End Class
